home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / ags210.arc / TRANS.PRG < prev    next >
Encoding:
Text File  |  1988-05-03  |  613 b   |  36 lines
  1. *   Trans Menu
  2. *   RL Coppedge
  3. *   14 Mar 88
  4. *   V 2.10
  5. CLEAR
  6. SET TALK OFF
  7. SET HEADING OFF
  8. Gd = .T.
  9. DO WHILE GD
  10.     GD = .T.
  11.     SET COLOR TO B+
  12.     ? Db_ttl + ' Data Transfer Menu'
  13.     SET COLOR TO W
  14.     ?
  15.     ?
  16.     ?   'Choose from the following:'
  17.     ?
  18.     ?   'This is really a dummy menu....'
  19.     ?
  20.     ?
  21.     SET COLOR TO B+
  22.     ?   'Which one do you want (Q to quit)  '
  23.     SET COLOR TO W
  24.     WAIT TO CHOICE
  25.     DO CASE
  26.       CASE Choice = '1'
  27.       CASE Choice = '2'
  28.       CASE UPPER(Choice)='Q'
  29.         RELEASE ALL
  30.         EXIT
  31.     ENDCASE
  32.     CLEAR
  33. ENDDO
  34. CLEAR
  35. RETURN
  36.